home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -readerstuff- / antony_dzeryn / introcreate / source / compress.amos / compress.amosSourceCode < prev    next >
AMOS Source Code  |  2000-02-24  |  223b  |  12 lines
  1. Screen Open 0,320,256,32,Lowres
  2. Colour 1,0
  3. Curs Off 
  4. Flash Off 
  5. PIC$=Fsel$("","","Select an IFF picture")
  6. If PIC$<>""
  7.    Load Iff PIC$,1
  8.    Spack 1 To 1
  9.    SAV3$=Fsel$("","","Select output file")
  10.    Save SAV3$,1
  11. End If 
  12. End